Wild Blue Yonder 1: 50 Years of Gs & Jets/Wild Blue Yonder - Episode 1 - 50 Years of Gs and Jets (Digital Ranch) (Spectrum Holobyte)(1-107-40-101)(1994).iso/control/panel.dir/00736_Script_736

Text File | 1994-08-29 | 1KB | 33 lines

on changePlane

  global aspect, aspectLabel, aspectLabelHeight, aspectMenu, ¼
         aspectMenuTop, aspectStartCast, bigIcon, oneRow, mute, ¼
         numOfAspLabels, panelDummy, plane, twoRows

  set iconSprite                        = the clickOn
  set iconCast                          = the castNum of sprite iconSprite
  set plane                             = the name of cast iconCast
  set the castNum of sprite mute        = iconCast - twoRows
  set the castNum of sprite bigIcon     = iconCast - oneRow
  set the castNum of sprite aspectMenu  = iconCast + twoRows

  -- If a plane has no weapons, for example, and the aspect of the
  -- source movie was weapons, make the aspectLabel disappear
  set checkAspect = the number of cast (plane & aspect)
  if checkAspect > 0 then
    set the castNum of sprite aspectLabel = checkAspect
  else
    set the castNum of sprite aspectLabel = panelDummy
  end if

  updateStage

  set aspectStartCast                   = iconCast + twoRows
  set aspectMenuTop                     = the top of sprite aspectMenu
  set aspectMenuBottom                  = the bottom of sprite aspectMenu
  set aspectMenuHeight                  = aspectMenuBottom - aspectMenuTop
  set numOfAspLabels                    = ¼
    integer(aspectMenuHeight/aspectLabelHeight)

end changePlane